0 REM--AHOY--MAR ISSUE--ADDRESS BOOK--PROG PAGE 39
1500 DATA1500,DO,NOT,ENTER,DATA,ON,THIS,LINE
1501 PRINT"[147]":POKE53281,0:POKE53280,11
1505 INPUT"WHAT IS YOUR NAME";N$:GOTO1515
1510 INPUT"[147]SORRY, I FORGOT YOUR NAME";N$
1515 PRINT"[147]"SPC(20-INT((LEN(N$)+11)/2));"THANK YOU ";N$;"."
1520 FORL=1TO1000:NEXT
1525 PRINT"[147]":POKE53281,0:POKE53280,11
1526 PRINT"[158]ADDRESS BOOK <C> 1984 PLANET EARTH LTD.":PRINT:T=0
1530 PRINT"   LIST ALL ENTRIES"
1531 PRINT
1532 PRINT"   LAST NAME"
1533 PRINTSPC(25);"[146]"
1534 PRINT"   FIRST NAME"SPC(10);" ADDRESS  [146]"
1535 PRINTSPC(25);"     BOOK[146]"
1536 PRINT"   ADDRESS"SPC(12);"O  [215]    [215]   [146][208]"
1537 PRINTSPC(23);"[152] [146]%  [152] [146]     [146]   '[152] [146]"
1538 PRINT"  CITY"SPC(15);"[204]  [215]    [215]  [146]:"
1539 PRINTSPC(24);"[149] BY        [149] [146]"
1540 PRINT"  STATE"SPC(14);"[149]  B.BEHLING[149] [146]"
1541 PRINTSPC(24);"[149] [195][195][195][195][195][195][195][195][195][195][195][195][149] [146]"
1542 PRINT"   ZIP CODE"SPC(11);"[149]            [146]"
1543 PRINTSPC(24);"[149]      [146]"
1544 PRINT"   PHONE NUMBER"SPC(7);" [152][201][146]        [201][146]"
1545 PRINT
1546 PRINT"   EXIT PROGRAM"
1547 PRINT
1548 PRINT"   ENTER DATA"
1549 PRINT
1550 PRINT"[153]CHOICE?"
1592 GETK$:IFK$=""THEN1592
1605 IFK$="L"THENGOSUB1722
1610 IFK$="N"THENGOSUB2000
1615 IFK$="F"THENGOSUB7000
1620 IFK$="A"THENGOSUB9000
1625 IFK$="C"THENGOSUB4000
1630 IFK$="S"THENGOSUB10000
1635 IFK$="X"THENGOSUB6000
1640 IFK$="E"THENGOTO23000
1645 IFK$="Z"THENGOSUB12000
1650 IFK$="P"THENGOSUB15000
1721 GOTO1525
1722 PRINT"[147]"
1723 GOSUB20000
1724 IFA=1500THENGOTO1730
1726 GOSUB19000
1727 GOTO1722
1730 PRINT"[147]"SPC(12);"[158] END OF FILES. [146]"
1735 FORL=1TO1000:NEXT
1740 RESTORE
1745 RETURN
2000 INPUT"[147]WHAT IS THE LAST NAME";J$:Z=LEN(J$)
2010 PRINT"[147]"SPC(20-INT((LEN(N$)+11)/2));"THANK YOU ";N$;"."
2020 FORL=1TO1000:NEXT:GOTO2060
2030 PRINTSPC(7);"SEARCHING, PLEASE STANDBY."
2060 GOSUB20000
2070 IFA=1500THENGOTO2140
2090 IFJ$=LEFT$(B$,Z)THENT=1:GOSUB19000
2130 PRINT"[147]":GOTO2030
2140 IFT=1THENGOTO2220
2150 PRINT"[147]"SPC(20-INT((LEN(J$)+14+LEN(N$))/2));J$;" NOT ON FILE "N$;"."
2160 PRINTSPC(8);"[158]                        [223]"
2170 PRINTSPC(8);" [146]HIT RETURN TO CONTINUE.[158] "
2180 PRINTSPC(8);"[146][223]                    [146] "
2190 GETK$:IFK$=""THENGOTO2190
2200 RESTORE
2210 RETURN
2220 PRINT"[147]"SPC(12);"[158] END OF FILES. [146]"
2230 FORL=1TO1000:NEXT
2240 RESTORE
2250 RETURN
4000 INPUT"[147]WHAT CITY DO YOU WANT";J$:Z=LEN(J$)
4200 PRINT"[147]"SPC(20-INT((LEN(N$)+11)/2));"THANK YOU ";N$;"."
4300 FORL=1TO1000:NEXT:GOTO4500
4400 PRINTSPC(7);"SEARCHING PLEASE STANDBY."
4500 GOSUB20000
4600 IFA=1500THENGOTO5300
5000 IFJ$=LEFT$(E$,Z)THENT=1:GOSUB19000
5200 PRINT"[147]":GOTO4400
5300 IFT=1THENGOTO5750
5350 PRINT"[147]"SPC(20-INT((LEN(J$)+14+LEN(N$))/2));J$;" NOT ON FILE "N$;"."
5360 PRINTAPC(8);"                        [223]"
5400 PRINTSPC(8);" [146]HIT RETURN TO CONTINUE. "
5410 PRINTSPC(8);"[146][223]                    [146] "
5500 GETK$:IFK$=""THENGOTO5500
5600 RESTORE
5700 RETURN
5750 PRINT"[147]"SPC(12);"[158] END OF FILES. [146]"
5800 FORL=1TO1000:NEXT
5850 RESTORE
5900 RETURN
6000 PRINT"[147]"SPC(5);"HIT   TO EXIT WITHOUT SAVING."
6100 PRINT""SPC(8);"HIT  TO ABORT TO MENU."
6200 PRINT""SPC(8);"HIT   TO SAVE LISTINGS."
6350 PRINT""SPC(5);"[158] REWIND TAPE BEFORE SAVING!!![146]"
6900 GETK$:IFK$=""THENGOTO6900
6910 IFK$="X"THENEND
6920 IFK$="A"GOTO1525
6959 IFK$="S"THENSAVE"ADDRESS BOOK 4:1"
6960 RETURN
7000 INPUT"[147]WHAT IS THE FIRST NAME";J$:Z=LEN(J$)
7100 PRINT"[147]"SPC(20-INT((LEN(N$)+11)/2));"THANK YOU ";N$;"."
7200 FORL=1TO1000:NEXT:GOTO7500
7300 PRINTSPC(7);"SEARCHING, PLEASE STANDBY."
7500 GOSUB20000
7600 IFA=1500THENGOTO8300
8000 IFJ$=LEFT$(C$,Z)THENT=1:GOSUB19000
8200 PRINT"[147]":GOTO7300
8300 IFT=1THENGOTO8700
8350 PRINT"[147]"SPC)20-INT((LEN(J$)+14+LEN(N$))/2));J$;" NOT ON FILE "N$;"."
8360 PRINTSPC(8);"[159]                        [223]"
8400 PRINTSPC(8);" [146]HIT RETURN TO CONTINUE.[159] "
8410 PRINTSPC(8);"[146][223]                    [146] "
8500 GETK$:IFK$=""THENGOTO8500
8600 RESTORE
8650 RETURN
8700 PRINT"[147]"SPC(12);"[158] END OF FILES. [146]"
8750 FORL=1TO1000:NEXT
8800 RESTORE
8850 RETURN
9000 INPUT"[147]WHAT IS THE ADDRESS";J$:Z=LEN(J$)
9010 PRINT"[147]"SPC(20-INT((LEN(N$)+11/2));"THANK YOU ";N$;"."
9015 FORL=1TO1000:NEXT:GOTO9035
9020 PRINTSPC(7);"SEARCHING, PLEASE STANDBY"
9035 GOSUB20000
9040 IFA=1500THENGOTO9065
9045 IFJ$=LEFT$(D$,Z)THENT=1:GOSUB19000
9060 PRINT"[147]":GOTO9035
9065 IFT=1THENGOTO9100
9070 PRINT"[147]"SPC(1);J$;" NOT ON FILE ";N$;"."
9073 PRINTSPC(8);"[156]                        [223]"
9075 PRINTSPC(8);"9 [146]HIT RETURN TO CONTINUE.[156] "
9077 PRINTSPC(8);"[146][223]                    [146] "
9080 GETK$:IFK$=""THENGOTO9080
9085 RESTORE
9090 RETURN
9100 PRINT"[147]"SPC(12);"[158] END OF FILES. [146]"
9110 FORL=1TO1000:NEXT
9120 RESTORE
9130 RETURN
10000 INPUT"[147]WHAT STATE DO YOU WANT";J$:Z=LEN(J$)
10010 PRINT"[147]"SPC(20-INT((LEN(N$)+11)/2));"THANK YOU ";N$;"."
10015 FORL=1TO1000:NEXT:GOTO10035
10020 PRINTSPC(7);"SEARCHING, PLEASE STANDBY."
10035 GOSUB20000
10040 IFA=1500THENGOTO10065
10045 IFJ$=LEFT$(F$,Z)THENT=1:GOSUB19000
10060 PRINT"[147]":GOTO10035
10065 IFT=1THENGOTO10095
10070 PRINT"[147]"SPC(20-INT((LEN(J$)+14+LEN(N$))/2;J$;" NOT ON FILE "N$;"."
10073 PRINTSPC(8);"                       [223]"
10075 PRINTSPC(8);" [146]HIT RETURN TO CONTINUE. "
10077 PRINTSPC(8);"[146][223]                  [146] "
10080 GETK$:IFK$=""THENGOTO10080
10085 RESTORE
10090 RETURN
10095 PRINT"[147]"SPC(12);"[158] END OF FILES. [146]
10100 [129]L[178]1[164]1000:[130]
10105 [140]
10110 [142]
12000 [133]"LOADWHAT IS THE ZIP CODE";J$:Z[178][195](J$)
12005 [153]"LOAD"[166]20[171][181](([195](N$)[170]11)[173]2));"THANK YOU ";N$"."
12010 [129]L[178]1[164]1000:[130]:[137]12015
12013 [153][166]7);"SEARCHING, PLEASE STANKBY."
12015 [141]20000
12020 [139]A[178]1500[167][137]12045
12025 [139]J$[178][200](G$,Z)[167]T[178]1:[141]19000
12040 [153]"LOAD":[137]12015
12045 [139]T[178]1[167][137]12075
12053 [153][166]8);"                        (null)"
12055 [153][166]8);" WAITHIT RETURN TO CONTINUE. "
12057 [153][166]8);"WAIT(null)                 WAIT)"
12060 [161]K$:[139]K$[178]""[167][137]12060
12065 [140]
12070 [142]
12075 [153]"LOAD"[166]12);"SYS END OF FILES. WAIT"
12080 [129]L[178]1[164]1000:[130]
12085 [140]
12090 [142]
15000 [133]"LOADWHAT PHONE NUMBER";J$:Z[178][195](J$)
15005 [153]"LOAD"[166]20[171][181](([195](N$)[170]11)[173]2));"THANK YOU ";N$;"."
15010 [129]L[178]1[164]1000:[130]:[137]15015
15013 [153][166]7);"SEARCHING, PLEASE STANDBY."
15015 [141]20000
15020 [139]A[178]1500[167][137]15045
15025 [139]J$[178][200](H$,Z)[167]T[178]1:[141]19000
15040 [153]"LOAD":[137]15015
15045 [139]T[178]1[167][137]15075
15053 [153][166]8);"FOR                        (null)"
15055 [153][166]8);" WAITHIT RETURN TO CONTINUE.FOR "
15057 [153][166]8);"WAIT(null)                 WAIT "
15060 [161]K$:[139]K$[178]""[167][137]15060
15065 [140]
15070 [142]
15075 [153]"LOAD"[166]12);"SYS END OF FILES. WAIT"
15080 [129]L[178]1[164]1000:[130]
15085 [140]
15090 [142]
19000 [153]"LOADCONTFILE NUMBER  >";A
19010 [153]"OPEN(null)LENLENLENLENLENLENLENLENLENLENLENLENRIGHT$"
19100 [153]"OPENPEEKNAME      OPENPEEK>";B$;", ";C$
19110 [153]"OPENPEEK            PEEK"
19150 [153]"OPENPEEKADDRESS   OPENPEEK>";D$
19160 [153]"OPENPEEK            PEEK"
19200 [153]"OPENPEEKCITY      OPENB>";E$
19210 [153]"OPENPEEK            PEEK"
19300 [153]"OPENPEEKSTATE     OPENPEEK>";F$
19310 [153]"OPENPEEK            PEEK"
19350 [153]"OPENPEEKZIP CODE  OPENPEEK>";G$
19355 [153]"OPENPEEK            PEEK"
19356 [153]"OPENPEEKPHONE NUMBEROPENB>";H$
19357 [153]"OPENPEEK            PEEK"
19400 [153]"SYS-LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENRIGHT$"
19410 [153]"SYSPEEKHIT   TO ABORT TO MENUSYSPEEK"
19420 [153]"SYSPEEK                        PEEK"
19425 [153]"PEEKHIT   TO EDIT FILESYS    PEEK"
19430 [153]"PEEK                        PEEK"
19440 [153]"PEEKHIT RETURN TO CONTINUE  SYSPEEK"
19450 [153]"MID$LENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLENLEN(null)"
19500 [161]K$:[139]K$[178]""[167][137]19500
19540 [139]K$[178]"X"[167][140]
19550 [139]K$[178]"X"[167][137]1525
19560 [139]K$[178]"E"[167]ED[178]1:[137]19700
19600 [142]
19700 [141]23070
19705 [139]ED[178]2[167][153]"LIST";A;"-";A[170]1:[137]19715
19710 [153]"LIST"A
19715 [153]"ONONON";:[151]198,4:[129]I[178]631[164]636:[151]I,13:[130]:[128]
20000 [135]A
20100 [139]A[178]1500[167][140]
20110 [139]A[178]1500[167][142]
20115 X[178]A
20200 [135]B$,C$,D$,E$,F$,G$,H$
20300 [142]
23000 [133]"LOADLAST NAME";I1$
23010 [133]"LOADFIRST NAME";I2$
23015 [133]"LOADADDRESS";I3$
23020 [133]"LOADCITY";I4$
23025 [133]"LOADSTATE";I5$
23030 [133]"LOADZIP CODE";I6$
23035 [133]"LOADPHONE NUMBER";I7$
23045 [153]"LOAD";[166]10);"FILING. PLEASE WAIT."
23050 [141]20000
23055 [139]X[177][178]1500[167][137]23120
23060 [139]A[178]1500[167][137]23070
23065 [137]23050
23070 LD[178][195](B$)[170][195](C$)[170][195](D$)[170][195](E$)[170][195](F$)[170][195](G$)[170][195](H$)[170][195]([196](A))
23075 [139]LD[177][178]67[167]X[178]X[170]1:[139]ED[178]1[167]ED[178]2:[142]
23076 [139]ED[178]1[167][142]
23080 DL[178][195](I1$)[170][195](I2$)[170][195](I3$)[170][195](I4$)[170][195](I5$)[170][195](I6$)[170][195](I7$)
23085 LI[178]X[170]1:DL[178]DL[170][195]([196](LI))
23090 R[178]4:[139]DL[177][178]67[167]23130
23095 [153]"LOAD"[201]([196](LI),[195]([196](LI))[171]1)"DATA";LI;"CMD,";I1$;",";I2$;
23100 [153]",";I3$;",";I4$;",";I5$;",";I6$;",";I7$
23105 [153]"RUN1510"
23110 [153]"";:[151]198,R:[129]I[178]631[164]635:[151]I,13:[130]:[128]
23120 [153]"LOAD"[166]13);"MEMORY FULL!!!WAIT":[129]L[178]1[164]2000:[130]
23125 [140]:[142]
23130 [153]"LOAD"[201]([196](LI),[195]([196](LI))[171]1)"DATA";LI;"CMD,";I1$;",";I2$;
23135 [153]",";I3$
23140 LI[178]LI[170]1
23145 [153][201]([196](LI),[195]([196](LI))[171]1)"DATA";I4$;",";I5$;",";I6$;",";I7$
23150 R[178]5:[137]23105